3 # ID NAME DESCRIPTION RESX RESY LENGTH COVER STATUS (void|private|hidden|public) UPLOADER HITS DESCR_CACHE FUTUREUSE
5 if [ "$video" -a -f "$vid_db" -a -r "$vid_db" ]; then
6 read -r VIDEO_ID VIDEO_NAME VIDEO_DESCRIPTION VIDEO_RESX VIDEO_RESY \
7 VIDEO_LENGTH VIDEO_COVER VIDEO_STATUS VIDEO_UPLOADER VIDEO_HITS \
8 VIDEO_DESCR_CACHE VIDEO_FUTUREUSE <<-EOF
9 $(grep "^${video} " "${vid_db}")
11 if [ "$VIDEO_ID" ]; then
12 VIDEO_NAME="$(UNSTRING "$VIDEO_NAME")"
13 VIDEO_DESCRIPTION="$(UNSTRING "$VIDEO_DESCRIPTION")"
14 VIDEO_COVER="$(UNSTRING "$VIDEO_COVER")"
15 VIDEO_DESCR_CACHE="$(UNSTRING "$VIDEO_DESCR_CACHE")"
22 local id="${1}" name description resx resy length cover status uploader \
23 hits descr_cache futureuse
24 local ID NAME DESCRIPTION RESX RESY LENGTH COVER STATUS UPLOADER HITS \
26 local arg video thumb cnt
27 video="${_DATA}/${CHANNEL_ID}/${VIDEO_ID}.mp4"
28 thumb="${_DATA}/${CHANNEL_ID}/${VIDEO_ID}_thumb.jpg"
30 for arg in "$@"; do case $arg in
31 name=*) name="${arg#*=}";;
32 description=*) description="${arg#*=}";;
33 cover=*) cover="${arg#*=}";;
34 status=*) status="${arg#*=}";;
35 uploader=*) uploader="${arg#*=}";;
36 hits=*) hits="${arg#*=}";;
39 if [ -f "$video" -a -r "$video" ]; then
40 arg="$(echo; ffprobe -show_entries format=duration:stream=width,height "$video" 2>&-)"
41 resx="${arg#*width=}"; resx="${resx%%${BR}*}"
42 resy="${arg#*height=}"; resy="${resy%%${BR}*}"
43 length="${arg#*duration=}"; length="${length%%${BR}*}"
45 if [ "${length%.*}" -a ! "${thumb}" -nt "${video}" ]; then
46 for cnt in 1 2 3 4 5 6 7 8 9 10; do
47 ffmpeg -nostdin -y -ss "$((cnt * ${length%.*} / 11))" -i "$video" \
48 -frames 1 "${thumb%.jpg}_$((cnt - 1)).jpg"
50 montage "${thumb%.jpg}"_[0-9].jpg \
51 -background "#000000" \
52 -tile 10x1 -geometry 320x180+0+0 \
53 -interlace line -quality 85 "${thumb}"
54 rm -- "${thumb%.jpg}"_[0-9].jpg
57 if LOCK "$vid_db"; then
58 while read -r ID NAME DESCRIPTION RESX RESY LENGTH COVER STATUS UPLOADER HITS \
59 DESCR_CACHE FUTUREUSE; do
60 if [ "$id" = "$ID" ]; then
61 printf '%s %s %s %i %i %f %s %s %s %i %s %s\n' \
62 "$id" "$(STRING "${name-$(UNSTRING "$NAME")}")" \
63 "$(STRING "${description-$(UNSTRING "$DESCRIPTION")}")" \
64 "${resx:-${resx-${RESX}}${resx+0}}" \
65 "${resy:-${resy-${RESY}}${resy+0}}" \
66 "${length:-${length-${LENGTH}}${length+0}}" \
67 "$(STRING "${cover-$(UNSTRING "$COVER")}")" \
68 "${status:-${status-${STATUS}}${status+void}}" \
69 "${uploader:-${uploader-${UPLOADER}}${uploader+\\}}" \
70 "${hits:-${hits-${HITS}}${hits+0}}" \
71 "$(printf %s "${description-$(UNSTRING "$DESCRIPTION")}" |markdown |STRING)" \
74 printf '%s %s %s %i %i %f %s %s %s %i %s %s\n' \
75 "$ID" "$NAME" "$DESCRIPTION" "$RESX" "$RESY" "$LENGTH" \
76 "$COVER" "$STATUS" "$UPLOADER" "$HITS" "$DESCR_CACHE" \
79 done <"$vid_db" >"${vid_db}.$$"
80 mv -- "${vid_db}.$$" "${vid_db}"
89 local boundary line last
91 [ ! "${CONTENT_TYPE}" -o "${CONTENT_TYPE##multipart/form-data;*}" ] && return 1
93 boundary="${CONTENT_TYPE#*; boundary=}"
94 boundary="${boundary%%;*}"
96 head -c "$CONTENT_LENGTH" \
98 # discard lines prior to boundary
99 /^--'"${boundary}"'\r?$/!b;
100 # discard lines until first blank
101 :A; n; /^\r?$/!bA; n;
102 # print lines until boundary ( = actual file upload)
104 /^--'"${boundary}"'(--)?\r?$/!bFILE;
105 # discard remaining lines
108 truncate -s $(( $(stat -c %s -- "$file") -2 )) -- "$file"
111 [ "$REQUEST_METHOD" = POST ] && case "$(POST action)" in
113 if [ ! "$USER_ID" ]; then
114 REDIRECT "${_BASE}/channel/${channel}/${video}/#ERROR_NOTLOGGEDIN"
116 REDIRECT "${_BASE}/channel/${channel}/${video}/#ERROR_UPDATE_NOTALLOWED"
117 elif update_video "$video" "name=$(POST name)" \
118 "description=$(POST description)" \
119 "status=$(POST status |grep -m1 -xE 'void|private|hidden|public')" \
120 "uploader=$USER_ID"; then
121 REDIRECT "${_BASE}/channel/${channel}/${video}/#UPDATE_SUCCESS"
123 REDIRECT "${_BASE}/channel/${channel}/${video}/#ERROR_UPDATE_NOLOCK"
127 REDIRECT "${_BASE}/channel/${channel}/${video}/#CANCELED"
131 if [ "$REQUEST_METHOD" = POST -a "$channel" -a "$video" ]; then
133 head -c "$CONTENT_LENGTH" >/dev/null
134 REDIRECT "${_BASE}/channel/${channel}/${video}/#ERROR_UPLOAD_NOTALLOWED"
135 elif [ "$VIDEO_STATUS" != void ]; then
136 head -c "$CONTENT_LENGTH" >/dev/null
137 REDIRECT "${_BASE}/channel/${channel}/${video}/#ERROR_UPLOAD_NOCLOBBER"
138 elif UPLOAD "$_DATA/$channel/$video.mp4"; then
139 update_video "$video" status=private
144 if [ "$channel" -a "$video" -a "$action" = edit ]; then
145 AUTHOR || REDIRECT "$_BASE/$channel/$video/#ERROR_EDIT_NOTALLOWED"
147 yield_page "$VIDEO_NAME - Edit" "video edit" <<-EOF
148 [form .video .edit method=POST
149 [input name="name" value="$(HTML "$VIDEO_NAME")" placeholder="Video Name"]
150 [fieldset .status $([ $VIDEO_STATUS = void ] && printf "disabled=disabled")
151 [radio "status" "private" #status_private $(checked $VIDEO_STATUS private void)]
152 [label for=status_private tooltip="Video is only visible to channel authors" Private]
153 [radio "status" "hidden" #status_hidden $(checked $VIDEO_STATUS hidden)]
154 [label for=status_hidden tooltip="Video will not be listed but can be viewed by anyone knowing the URL" Hidden]
155 [radio "status" "public" #status_public $(checked $VIDEO_STATUS public)]
156 [label for=status_public tooltip="Video will be listed publicly" Public]
158 [textarea name="description" placeholder="Description" . $(HTML "$VIDEO_DESCRIPTION")]
159 [submit "action" "update_video" . Update]
160 [submit "action" "update_video_cancel" . Cancel]
164 elif [ "$channel" -a "$video" -a "$action" = frameuploadprogress ]; then
165 AUTHOR || REDIRECT "$_BASE/$channel/$video/#ERROR_EDIT_NOTALLOWED"
166 printf '%s\r\n' 'Content-Type: text/html' 'Connection: close' ''
167 printf '<!DOCTYPE HTML>
169 <title>Upload Progress</title>
170 <style type="text/css"><!--
175 display: inline-block;
178 background-color: #FFF;
183 while [ "$VIDEO_STATUS" = void ]; do
184 printf '<span class=progress>%i</span>\n' "$(stat -c %s "$_DATA/$channel/$video.mp4" 2>&-)"
186 read -r VIDEO_ID VIDEO_NAME VIDEO_DESCRIPTION VIDEO_RESX VIDEO_RESY \
187 VIDEO_LENGTH VIDEO_COVER VIDEO_STATUS VIDEO_UPLOADER VIDEO_HITS \
188 VIDEO_DESCR_CACHE VIDEO_FUTUREUSE <<-EOF
189 $(grep "^${video} " "${vid_db}")
192 printf '<span class=progress>Ready!</span>\n'
193 printf '</body></html>'
195 elif [ "$channel" -a "$video" -a "$action" = frameupload ]; then
196 AUTHOR || REDIRECT "$_BASE/$channel/$video/#ERROR_EDIT_NOTALLOWED"
197 printf '%s\r\n' 'Content-Type: text/html' ''
198 [ "$VIDEO_STATUS" = void ] && "$_EXEC"/cgilite/html-sh.sed <<-EOF
203 [form .upload method=POST enctype="multipart/form-data"
204 [input type=file name=upload]
205 [submit "action" "video_upload" Upload]
209 [ "$VIDEO_STATUS" != void ] && "$_EXEC"/cgilite/html-sh.sed <<-EOF
214 [a href="./" target="_parent" . Reload Page!]
218 elif [ "$channel" -a "$video" ]; then
219 [ $VIDEO_STATUS = public -o $VIDEO_STATUS = hidden ] || AUTHOR || { . ${_EXEC}/page_404.sh; exit 0; }
221 yield_page "$VIDEO_NAME" "video" <<-EOF
222 [nav [a href="../../" Channels] - [a href="../" $(HTML "${CHANNEL_NAME:-(Unnamed Channel)}")] - [span $(HTML "${VIDEO_NAME:-(Unnamed Video)}")]
223 $(AUTHOR && printf ' - [a href="edit" edit]')
225 $( AUTHOR && [ $VIDEO_STATUS = void ] && printf '
226 [iframe src="frameuploadprogress" width="100%%" height="50"
227 [a href="freameuploadprogress" Iframe: Upload progress]
229 [iframe src="frameupload" width="100%%" height="50"
230 [form .upload method=POST enctype="multipart/form-data"
231 [input type=file name=upload]
232 [submit "action" "video_upload" Upload]
235 $( [ $VIDEO_STATUS != void ] && printf '
237 [source src="%s/video/%s/%s.mp4"]
238 ]' "$_BASE" "$channel" "$video"
240 [h1 .name $(HTML "$VIDEO_NAME")]
241 [div .description . ${VIDEO_DESCR_CACHE}]
245 . "$_EXEC/page_404.sh"